home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / windows / wb32_96a.zip / SYSINFO.WB_ < prev    next >
Text File  |  1996-01-05  |  3KB  |  110 lines
  1. CR=strcat(Num2char(13),Num2Char(10))
  2. TAB=Num2Char(9)
  3.  
  4. BoxOpen("SysInfo","Sysinfo is examining your system.%cr%Please wait.")
  5.  
  6. wintype="retail"
  7. if WinMetrics(22) then wintype="debug"
  8.  
  9. wcx=WinMetrics(-3)
  10. math="Math"
  11. switch wcx
  12.    case 0   ; Win16
  13.         wc=WinConfig()
  14.         if !(wc&1) then mode="Real"
  15.         if wc&16 then mode="Standard"
  16.         if wc&32 then mode="Enhanced"
  17.         
  18.         if wc&64 then cpu=8086
  19.         if wc&128 then cpu=80186
  20.         if wc&2 then cpu=286
  21.         if wc&4 then cpu=386
  22.         if wc&8 then cpu=486
  23.         mode = strcat(mode,' ',wintype,' Windows ')
  24.         if !(wc&1024)  then math="No math"
  25.         break
  26.   case 1 ; Win32 Intel
  27.        mode="Intel 32-bit %wintype% Windows "
  28.        cpu= ItemExtract(6,WinSysInfo(),@tab)
  29.        break
  30.   case 2 ; Dec Alpha
  31.        mode="DEC Alpha %wintype% Windows NT "
  32.        cpu= ItemExtract(6,WinSysInfo(),@tab)
  33.        break
  34.   case 3 ; MIPS
  35.        mode="MIPS %wintype% Windows NT "
  36.        cpu= ItemExtract(6,WinSysInfo(),@tab)
  37.        break
  38.   case 4 ; PowerPC 
  39.        mode="PowerPC %wintype% Windows NT "
  40.        cpu= ItemExtract(6,WinSysInfo(),@tab)
  41.        break
  42.   case wcx
  43.        cpu="Unknown CPU"
  44.        mode="Unknown %wintype% Windows  "
  45. endswitch
  46.  
  47.  
  48.  
  49.  
  50.         Sysinfo=strcat(cpu,' ',mode,WinVersion(1),'.',WinVersion(0),CR)
  51.  
  52.  
  53. mouse="No Mouse"
  54. if WinMetrics(19) then mouse="Mouse"
  55.  
  56. Sysinfo=strcat(sysinfo,math," co-processor.   ",mouse,' available.',CR)
  57.  
  58.  
  59.  
  60. sysinfo=strcat(sysinfo,WinMetrics(0),'x',WinMetrics(1)," video resolution.  ",WinMetrics(-1),"  colors.",CR)
  61.  
  62. ErrorMode(@OFF)
  63. LastError()
  64. PlayMedia("Status WaveForm Ready")
  65. ErrorMode(@CANCEL)
  66. if LastError()!=1193 then sysinfo=strcat(sysinfo,"Windows multimedia extensions present.",CR)
  67.  
  68. math=NetInfo(0)
  69. if math=="MULTINET" then math=strcat(math,"/",NetInfo(1))
  70. sysinfo=strcat(sysinfo,math," Network installed.",CR) 
  71.  
  72.  
  73.  
  74. switch wcx
  75.    case 0
  76.        bug=WinResources(0)/1024   ; Compute memory avail
  77.        math=strlen(bug)
  78.        if math>3 then bug=strcat(strsub(bug,1,math-3),',',strsub(bug,math-2,3))
  79.        sysinfo=strcat(sysinfo,CR,bug," KB Free Memory",CR)
  80.        sysinfo=strcat(sysinfo,WinResources(2),"%% System Resources Free (",WinResources(3),"%% GDI, ",WinResources(4),"%% User)",CR)
  81.       break
  82.    case wcx
  83.       bug=WinResources(11)/1024   ; Get Physical memory avail
  84.       sysinfo=strcat(sysinfo,CR,bug," KB Physical Memory",CR)
  85.       bug=(WinResources(14)/1024)+bug   ; Get Virtual memory + Physical avail
  86.       sysinfo=strcat(sysinfo,bug," KB Total Memory",CR)
  87. end switch
  88.  
  89.  
  90.  
  91. sysinfo=strcat(sysinfo,"Console ",DosVersion(1),'.',DosVersion(0),"  using ",environment("COMSPEC"),CR)
  92. disks=DiskScan(1)
  93. disks=strreplace(disks,@tab," ")
  94. if disks!="" then sysinfo=strcat(sysinfo,"Floppies ",disks,CR)
  95. disks=DiskScan(2)
  96. disks=strreplace(disks,@tab," ")
  97. if disks!="" then sysinfo=strcat(sysinfo,"Hard Disks ",disks,CR)
  98. disks=DiskScan(4)
  99. disks=strreplace(disks,@tab," ")
  100. if disks!="" then sysinfo=strcat(sysinfo,"Network Disks ",disks,CR)
  101. sysinfo=strcat(sysinfo,"Windows Directory ",DirWindows(0),CR)
  102. sysinfo=strcat(sysinfo,"System  Directory ",DirWindows(1),CR)
  103. sysinfo=strcat(sysinfo,CR,"WIL Interpreter Ver ",VersionDll())
  104.  
  105.  
  106. ver=Version()
  107. Message("WinBatch %ver% SysInfo",Sysinfo)
  108.  
  109.  
  110.